home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Complete Applications / MEdit 1.5 / Pascal .mcr < prev    next >
Encoding:
Text File  |  1986-11-07  |  2.7 KB  |  149 lines  |  [TEXT/ttxt]
  1. **************************************************************************
  2. * This macro file is useful for Pascal programming. It allows you to     *
  3. * insert all important program-structures with one key.                  *
  4. * written           : 06.02.86 Matthias Aebi                             *
  5. * Last modification : 31.03.86 Matthias Aebi                             *
  6. **************************************************************************
  7.  
  8. * 1
  9. * puts braces around the current selection
  10. "Comment/K" {
  11.     Push;
  12.     Select(L],C]);
  13.     Insert(" }");
  14.     Select(L[,C[);
  15.     Insert("{ ");
  16.     Pop;
  17.     If L. = L: {
  18.         Select(L.,C. | L:,C:+4);
  19.     }
  20.     Else {
  21.         Select(L.,C. | L:,C:+2);
  22.     };
  23. };
  24.  
  25. * 2
  26. * removes comment-braces at start and end of the current selection
  27. "Uncomment/U" {
  28.     Push;
  29.     Select(L],C]-2 | L],C]);
  30.     Clear;
  31.     Select(L[,C[ | L[,C[+2);
  32.     Clear;
  33.     Pop;
  34. };
  35.  
  36. * 3
  37. * insert a line in the menu
  38. "-" {};
  39.  
  40. * 4
  41. * jumps to the next placeholder in a Pascal structure
  42. "Placeholder/-" {
  43.     Find("{.");
  44.     If L: = 0 And C: = 0 {
  45.         Find("{.");
  46.     };
  47.     Push;
  48.     Find(".}");
  49.     Select(L[,C[ | L:,C:)!;
  50.     Drop;
  51. };
  52.  
  53. * 5
  54. * insert a line in the menu
  55. "-" {};
  56.  
  57. * 6
  58. * insert a PROGRAM template
  59. "PROGRAM/P" {
  60.     Push;
  61.     Insert("PROGRAM {.ProgName.};\N");
  62.     Insert("CONST\n\t{.Constants.};\N\N");
  63.     Insert("TYPE\n\t{.Types.};\N\N");
  64.     Insert("VAR\n\t{.Variables.};\N\N");
  65.     Insert("BEGIN\n\t{.Statement.};\NEND.");
  66.  
  67.     Call(13);
  68. };
  69.  
  70. * 7
  71. * insert a PROCEDURE template
  72. "PROCEDURE" {
  73.     Push;
  74.     Insert("PROCEDURE {.ProcName.} ({.Parameters.});\n");
  75.     Insert("CONST\n\t{.Constants.};\n\T\n");
  76.     Insert("TYPE\n\t{.Types.};\n\T\n");
  77.     Insert("VAR\n\t{.Variables.};\n\T\n");
  78.     Insert("BEGIN\n\t{.Statement.};\n\TEND;");
  79.  
  80.     Call(13);
  81. };
  82.  
  83. *8
  84. * insert a BEGIN-END template
  85. "BEGIN/B" {
  86.     Push;
  87.     Insert("BEGIN\n\t{.Statement.};\n\TEND;");
  88.  
  89.     Call(12);
  90.     Call(13);
  91. };
  92.  
  93. * 9
  94. * insert a FOR-TO-DO template
  95. "FOR/L" {
  96.     Push;
  97.     Insert("FOR {.Variable.} := {.Value.} TO {.Value.} DO\n");
  98.     Insert("\t{.Statement.};");
  99.  
  100.     Call(12);
  101.     Call(13);
  102. };
  103.  
  104. * 10
  105. * insert a CASE template
  106. "CASE" {
  107.     Push;
  108.     Insert("CASE {.Value.} OF\n{.Constant.}:\n\t");
  109.     Insert("{.Statement.};\n\T\nOTHERWISE\n\t");
  110.     Insert("{.Statement.};\n\T\nEND;");
  111.  
  112.     Call(12);
  113.     Call(13);
  114. };
  115.  
  116. * 11
  117. * insert an IF-THEN-ELSE template
  118. "IF/I" {
  119.     Push;
  120.     Insert("IF {.Condition.}\nTHEN\n\t{.Statement.}\n\T");
  121.     Insert("ELSE\n\t{.Statement.};");
  122.  
  123.     Call(12);
  124.     Call(13);
  125. };
  126.  
  127. * 12
  128. * change ;; to ; if any
  129. {
  130.     Push;
  131.     Select(L.,C.-1);
  132.     Find(";;");
  133.     If L. = L[ {
  134.         Insert(";");
  135.     };
  136.     Pop;
  137. };
  138.  
  139. * 13
  140. * select first placeholder
  141. {
  142.     Pop;
  143.     Find("{.");
  144.     Push;
  145.     Find(".}");
  146.     Select(L[,C[ | L:,C:)!;
  147.     Drop;
  148. }.
  149.